home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of Shareware
/
Best of PC Windows Shareware 1.0 - Wayzata Technology (7111) (1993).iso
/
mac
/
DOS
/
CAD_CAM
/
DANCAD2
/
COLORTST.MAC
< prev
next >
Wrap
Text File
|
1990-04-22
|
841b
|
50 lines
; START COLORTST.MAC (c) 1990 DAN HUDGINS
INIT
POLY 36 36 0.25 3 1 0 0
POLY 36 36 0.50 4 1 0 0
POLY 36 36 0.75 3 1 0 0
POLY 36 36 1.00 2 1 0 0
POLY 36 36 1.25 1 1 0 0
POLY 36 36 1.50 2 1 0 0
POLY 36 36 1.75 3 1 0 0
POLY 36 36 2.00 4 1 0 0
POLY 3 3 0.25 3 1 0 0
POLY 3 3 0.50 3 1 0 0
POLY 3 3 0.75 4 1 0 0
POLY 3 3 1.00 4 1 0 0
POLY 3 3 1.25 1 1 0 0
POLY 3 3 1.50 1 1 0 0
POLY 3 3 1.75 2 1 0 0
POLY 3 3 2.00 2 1 0 0
GRAPH_MODE COLOR LOCATE 1 1 ECHO COLOR VIDEO MODE (Shows in Monochrome on Hercules.) %%
# 0 DISPLAY 0 0 0 -1.000E+18 300 1 0 0
LOCATE 1 25 ECHO Press [Return]. %%
WAIT
GRAPH_MODE B&W LOCATE 1 1 ECHO B&W VIDEO MODE. %%
# 0 DISPLAY 0 0 0 -1.000E+18 300 1 0 0
LOCATE 1 25 ECHO Press [Return]. %%
WAIT
; END COLORTST.MAC